home *** CD-ROM | disk | FTP | other *** search
- /*
- * Copyright 1986, 1987 Pat Joseph Monardo. All rights reserved.
- * Copying of this file is granted according to the provisions
- * specified in the file COPYING which must accompany this file.
- */
-
-
- /*
- * evalstack.h
- */
-
- #define VMODE 1
- #define HMODE (VMODE + MAX_COMMAND + 1)
- #define MMODE (HMODE + MAX_COMMAND + 1)
-
- int push_nest();
- int pop_nest();
- int print_mode();
-
- #define IGNORE_DEPTH -65536000
-
- typedef struct
- {
- int mode_field;
- ptr head_field;
- ptr tail_field;
- int pg_field;
- val aux_field;
- val ml_field;
- }
- list;
-
- global list cur_list;
- global ptr nest_ptr;
- global list nest[];
- global int max_nest_stack;
-
- #define mode cur_list.mode_field
- #define head cur_list.head_field
- #define tail cur_list.tail_field
- #define prev_graf cur_list.pg_field
- #define aux cur_list.aux_field
- #define prev_depth aux
- #define space_factor aux
- #define incompleat_noad aux
- #define mode_line cur_list.ml_field
-
- global int shown_mode;
-
- int show_activities();
-
- #define tail_append(N) \
- {link(tail) = N; tail = link(tail);}
-